home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / AmigaTalk_X / prelude / Class.p < prev    next >
Encoding:
Text File  |  2002-03-13  |  2.8 KB  |  77 lines
  1. pTempVar <- <primitive 110 13 >
  2. <primitive 112 pTempVar 1  " getByteArray: " \
  3.   #( #[ 16r20 16r21 16rFA 16r02 16r9F 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " view " \
  7.   #( #[ 16r20 16rFA 16r01 16r9C 16rF2 16rF5] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " variables " \
  11.   #( #[ 16r20 16rFA 16r01 16r9E 16rF3 16rF5] \
  12.     #(  )) >
  13.  
  14. <primitive 112 pTempVar 4  " superClass " \
  15.   #( #[ 16r20 16rFA 16r01 16r97 16rF3 16rF5] \
  16.     #(  )) >
  17.  
  18. <primitive 112 pTempVar 5  " respondsTo: " \
  19.   #( #[ 16r20 16r72 16r22 16rA2 16rF7 16r12 16r22 16r21 16rFA 16r02 16r9B \
  20.         16rF7 16r02 16r5B 16rF3 16rF2 16r22 16r0A 16r2E 16rF1 16r72 \
  21.         16rF2 16rF9 16r16 16rF2 16r5C 16rF3 16rF5] \
  22.     #(  )) >
  23.  
  24. <primitive 112 pTempVar 6  " respondsTo " \
  25.   #( #[ 16r20 16rFA 16r01 16r9A 16rF2 16rF5] \
  26.     #(  )) >
  27.  
  28. <primitive 112 pTempVar 7  " printClassString " \
  29.   #( #[ 16r20 16rFA 16r01 16r98 16rF3 16rF5] \
  30.     #(  )) >
  31.  
  32. <primitive 112 pTempVar 8  " new: " \
  33.   #( #[ 16r30 16r54 16r50 16r20 16rFA 16r03 16rFA 16rFA 16r02 16r5B 16rF7 \
  34.         16r1D 16r54 16r53 16r20 16rFA 16r03 16rFA 16r73 16r23 16r5D \
  35.         16rB6 16rF7 16r0E 16r20 16r21 16rB4 16r72 16r54 16r54 16r20 \
  36.         16r22 16rFA 16r04 16rFA 16rF2 16r22 16rF3 16rF2 16r23 16rF3 \
  37.         16rF2 16r20 16r21 16rB4 16rF3 16rF5] \
  38.     #( #Singleton_Class  )) >
  39.  
  40. <primitive 112 pTempVar 9  " basicNew: " \
  41.   #( #[ 16r20 16rFA 16r01 16r97 16r72 16r22 16rFA 16r01 16r03 16rF7 16r04 \
  42.         16r22 16rA0 16rF1 16r73 16rF2 16r20 16r23 16rFA 16r02 16r99 \
  43.         16r73 16r20 16r30 16rFA 16r02 16r9B 16rF7 16r05 16r23 16r21 \
  44.         16rB0 16rF1 16r73 16rF2 16r23 16rF3 16rF5] \
  45.     #( #new:  )) >
  46.  
  47. <primitive 112 pTempVar 10  " new " \
  48.   #( #[ 16r30 16r54 16r50 16r20 16rFA 16r03 16rFA 16rFA 16r02 16r5B 16rF7 \
  49.         16r1C 16r54 16r53 16r20 16rFA 16r03 16rFA 16r72 16r22 16r5D \
  50.         16rB6 16rF7 16r0D 16r20 16rAD 16r71 16r54 16r54 16r20 16r21 \
  51.         16rFA 16r04 16rFA 16rF2 16r21 16rF3 16rF2 16r22 16rF3 16rF2 \
  52.         16r20 16rAD 16rF3 16rF5] \
  53.     #( #Singleton_Class  )) >
  54.  
  55. <primitive 112 pTempVar 11  " basicNew " \
  56.   #( #[ 16r20 16rFA 16r01 16r97 16r71 16r21 16rFA 16r01 16r03 16rF7 16r04 \
  57.         16r21 16rA0 16rF1 16r72 16rF2 16r20 16r22 16rFA 16r02 16r99 \
  58.         16r72 16r20 16r30 16rFA 16r02 16r9B 16rF7 16r04 16r22 16rA0 \
  59.         16rF1 16r72 16rF2 16r22 16rF3 16rF5] \
  60.     #( #new  )) >
  61.  
  62. <primitive 112 pTempVar 12  " list " \
  63.   #( #[ 16r20 16rFA 16r01 16r9D 16rF2 16rF5] \
  64.     #(  )) >
  65.  
  66. <primitive 112 pTempVar 13  " edit " \
  67.   #( #[ 16r20 16rFA 16r01 16r96 16rF2 16rF5] \
  68.     #(  )) >
  69.  
  70. <primitive 98 #Class \
  71.   <primitive 97 #Class #Object #AmigaTalk:General/Class.st \
  72.    #(  ) \
  73.    #( #getByteArray: #view #variables #superClass #respondsTo: #respondsTo  \
  74.        #printClassString #new: #basicNew: #new #basicNew #list #edit  ) \
  75.   pTempVar 4 7 > #ordinary >
  76.  
  77.